(mail-strip-quoted-names): Catch errors from forward-sexp.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 637575110136e33532637d44d8cad4bc92b01fa5..0d32fbe23fe3299e27ad102587e768623e677289 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -75,7 +75,11 @@ Return a modified address list."
               (forward-char -1)
               (skip-chars-backward " \t")
               (delete-region (point)
-                             (save-excursion (forward-sexp 1) (point))))
+                             (save-excursion
+                               (condition-case ()
+                                   (forward-sexp 1)
+                                 (error (goto-char (point-max))))
+                                 (point))))
             (setq address (buffer-string))
             (erase-buffer))
         ;; Strip non-nested comments an easier way.